﻿Public Class BuyServicePage
    Inherits BasePage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Me.Header.Title = Me.AppSettings("BuyPageTitle")

            Call GetContent()
        Catch ex As Exception
            Server.Transfer("~/Pages/Error.aspx")
        End Try

    End Sub

    Private Sub GetContent()
        Dim dataAccess As DBAccess
        Dim xSql As String
        Dim ds As DataSet

        Try
            dataAccess = Me.GetDBAccess

            xSql = ""
            xSql = "SELECT * FROM T_DATA WHERE T_DATA.CODE= " & CommonConstants.C_BUY_SERVICE_PAGE_CODE

            ds = dataAccess.GetDBDataset(xSql)

            Me.ltContent.Text = CommonMethods.Nz(ds.Tables(0).Rows(0)("CONTENT"), "")

        Catch ex As Exception
            Throw
        End Try

    End Sub

End Class